home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh12a.d64
/
move-demo 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
582b
|
27 lines
100 REM *** MOVE-DEMO ***
110 REM *** WINDOWING ***
120 :
130 PRINT CHR$(147)
140 FOR I=1 TO 20
150 : PRINT "DIES IST EIN TEST"
160 NEXT
170 :
180 SYS 49152,1024,50000,1000
190 :
200 PRINT CHR$(19)
210 PRINT:PRINT:PRINT
220 PRINT TAB(10)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
230 PRINT TAB(10)"[194] DIESES WINDOW [194]"
240 PRINT TAB(10)"[194] VERSCHWINDET, [194]"
250 PRINT TAB(10)"[194] WENN SIE EINE [194]"
260 PRINT TAB(10)"[194] TASTE DRUECKEN [194]"
270 PRINT TAB(10)"[194] UND WIRD DURCH [194]"
280 PRINT TAB(10)"[194] DEN ALTEN BILD- [194]"
290 PRINT TAB(10)"[194] SCHIRMINHALT [194]"
300 PRINT TAB(10)"[194] ERSETZT [194]"
310 PRINT TAB(10)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
320 :
330 GET A$:IF A$="" THEN 330
340 SYS 49152,50000,1024,1000
350 GET A$:IF A$="" THEN 350